home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Opus5.5 / ARexx.lha / ARexx / defsize_kludge.dopus5 < prev    next >
Text File  |  1996-05-05  |  764b  |  27 lines
  1. /* Custom kludge for my personal use to set lister to given size.
  2.    Not for release because this is lame!
  3.    by Leo 'Nudel' Davidson for Gods'Gift Utilities
  4.    email: leo.davidson@keble.oxford.ac.uk  www: http://users.ox.ac.uk/~kebl0364 */
  5.  
  6. options results
  7. options failat 99
  8. signal on syntax;signal on ioerr        /* Error trapping */
  9. parse arg DOpusPort source_handle.0
  10. DOpusPort = Strip(DOpusPort,"B",'" ')
  11. source_handle.0 = Strip(source_handle.0,"B",'" ')
  12.  
  13. If DOpusPort="" THEN Do
  14.     Say "Not correctly called from Directory Opus 5!"
  15.     Say "Load this ARexx script into an editor for more info."
  16.     EXIT
  17.     END
  18. If ~Show("P",DOpusPort) Then Do
  19.     Say DOpusPort "is not a valid port."
  20.     EXIT
  21.     End
  22. Address value DOpusPort
  23.  
  24. lister set source_handle.0 position "0/0/360/148"
  25.  
  26. EXIT
  27.